home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / CodeWarrior interface / loader.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-12-13  |  404 b   |  20 lines  |  [TEXT/KAHL]
  1. #include <A4Stuff.h>
  2.  
  3. int myEqualString(unsigned char x[], unsigned char y[])
  4. {
  5.     if (x[0] != y[0])
  6.         return(0);
  7.     else {
  8.         int i;
  9.         for(i=1; i<=x[0]; i++)
  10.             if (x[i] != y[i])
  11.                 return(0);
  12.         return(1);
  13.     }
  14. }
  15.  
  16. #define EXPORT(n,x,y) { if (myEqualString(n,y)) return &x; }
  17. #define LOADER_INIT(x) { if (x == NULL) \
  18.      { SetCurrentA4(); return (void *) GetCurrentA4();} }
  19. #define LOADER_ERROR() return 0L;
  20.